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- | 
TEMPLATE 16-Sep-1984 18:37 AX-11 Bliss-32 V4.0-74 Page 1 
ers 8=13Re 9% 18:32 ANNTOR SHEA TERPY AT s0351 ° (1) 

; 1 001 MODULE TEMPLATE ( : 
3 § 00 DENT = ‘v04-000', : 
3 00 ADDRESSING_MODE (EXTERNAL=GENERAL, : 
3 & 004 NONE XTERNAL=LONG_RELATIVE) 5 
3 5 005 d= ; 
3 § 1) 1 BEGIN : 
3 007 1 5 
3 8 0008 1! 3 
: 10 484 ' aaa ai a aka a a NE LPS ata Bg ‘ 
> + 0011 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . : 
i Wg OO1g 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ; 
: iz it : - ALL RIGHTS RESERVED. : : 
; 15 0015 1 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
3 16 B08 1 !'@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 2 
3 17 001 1 !'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 18 0018 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 2 
: 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: 30 a06% 1 is TRANSFERRED. * ; 
° . ® o 
3 22 00 ¢ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ° 
: 00 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * > 
4 $e BB ¢ : i: CORPORATION. * : 
; } + 3 
: $8 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * é 
3 7 8056 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® $ 
3 28 0028 1 !* * : 
3 $3 Ones 1 !e * 3 
M4 0 Boss : LRA AAR AARRERAAAAAAE REAR AEA ARATE EEE D4 
8 1 $ 
3 32 it 1 44 3 
; 3 003 1 ! FACILITY: VAX/VMS MONITOR Utility 3 
3 $e 0034 1! : 
: 5 0035 1 ! ABSTRACT: : 
; 0036 1! 3 
a 0037 1! The TEMPLATE module contains the routines to create ; 
s $ sis : templates for the various display screens. : 
: 40 0040 1 | ENVIRONMENT: : 
3 41 0041 1! : 
; $§ 9h 4 1! Unprivileged, user mode. 3 
s 6 0045 1! : 
3 48 Bee i AUTHOR: Henry M. Levy , CREATION DATE: 28-April-1977 | : 
; 46 0046 | MODIFIED BY: : 
> «48 $68 1! v03-012 TLC1072 Thomas L. Cafarella 17-Apr-1984 11:00 ; 
3 $3 eh : Add volume name to DISK display. : 
; 24 051 1 V03-011 TLC1066 Thomas L. Cafarella 01-Apr-1984 11:00 | : 
: 26 26 : } Add SYSTEM class. | : 
; 7 §32 1 i v03-010 TLC1060 Thomas L. Cafarella 12-Mar-1984 11:00 3 
3 36 B22 ! } Make multi-file summary work for homogeneous classes. ; 
: § 03 1 | v03-009 TLC1054 Thomas L. Cafarella 07-Mar-1984 = 11:00 | : 
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v03-003 


v03-002 T 


v03-001 T 


1B-sen-1986 02:18:37 Yaatt BL is4=32 v4.0-742 | 


Fix positioning of data Lines for homogeneous classes. 


PRS1006 Paul R. Senn 17-F EB-1984 14:00 
Add support for ‘‘computed’’ items 
TLCE1052 Thomas L. Cafarella 17-Feb-1984 11:00 


Add multi-file summary capability. 


PRS1005 aul R. Sen 13-JAN-1983 10:00 
Allow flexible ina betueen screen items 


SPC0006 Stephen P. Carney 01-Jul-1983 09:00 
Change some RWxxx (resource wait state) codes. 

TLC1035 Thomas L. Cafarella 06-Jun-1983 15:00 
Add homogeneous class type and DISK class. 

TLC1028 Thomas L. Cafarella 14-Apr-1983 16:00 
had interactive user interface. 

$PC0001 Stephen P. Carney 25-Mar-1983 15:00 
Add Rwxxx and MUTEX” ma in place of MWAIT state. 

TLC1020 Thomas L. Cafarella 1=Jul-1982 15:00 
Remove semi-colon to eliminate BLISS INFO message. 


LC1010 Thom Cafarella 29-Mar-1982 15:00 
Elininete lower-tese a8 he strings from summary bar graphs. 


C1005 Thomas L. Cafarella 25-Mar-1982 17:00 
Stiee vertical spacing for classes with 13 items. 


Page 
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vou-000" 1e-$8p-1986 19:45:05 ERONTORSSRCSTERPLATE 659; 1 ae 


3 $3 
9 3 ' 
94 09 ! TABLE OF CONTENTS: 
95 094 : 
36 095 
S 09: FORWARD ROUTINE 
09 OUTPUT , : ourput a counted string to the SCRPKG | 
09 POSITION , ' call SCRPKG to position cursor 
st TEMPLATE ; ! build and output display templates 
1 
1 ! 
: INCLUDE FILES: 
1 
61 LIBRARY ‘SYSSLIBRARY:LIB.L32'; ! system service macros and user definitions 
8 REQUIRE "MONDEFREQ'; ! private MONITOR control block definitions 


REQUIRE "DSPDEFREQ': 
BUILTIN EMUL ; 


item numbers defined here 
define EMUL VAX hardware function 


COMPILE TIME VARIABLES 


COMPILETIME 
RWAIT_COUNT =0, ! counter for the number of RWAITs being defined 
RWAIT_DEFINED = RSNS_MAX ; ! number of RSN$_* wait codes defined in LIB.L32 
1 
i MACROS: 
MACRO 


' 
Counted ascii string macros 


CSTRINGC) = (UPLIT BYTE (2ZCHARCOUNT(ZSTRING(ZREMAINING)), 
ZSTRING(ZREMAINING)) )2% , 


: The RWAIT_CSTRING macro is the CSTRING macro plus a counter to 
! keep track of times it was called (how many RWAITS have been defined) 
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” RWAIT_CSTRINGC] = XASSIGN(RWAIT_COUNT,RWAIT_COUNT+1) 
4 re (UPLIT BYTE (ZCHARCOUNT (XZSTRING(ZREMAINING)), 

; 7 ZSTRING(ZREMAINING)) )% ; 

4 ' 

4 i EQUATED SYMBOLS: 

4 . 

4 

4 0 

4 i BELL =7, 

4 2 ESC = 27. 
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me mk me ee ed a ed ad a ed od = 2 8 = 2 8 Sd = SS 2 8 + 2 a 2 2 


he = ("F' * 8) + ESC, 
= ° 
CURSOR = ("y' * 8) + ESC, 
ERAS = e,;t a + 
ERASEEOL = ('K* * 8) 
FALSE = 0 . 

HOME = (‘H" * 8) + ESC, 

LF = . 

TRUE = 1 ; 
GLOBAL LITERAL 

REGSET = ('G" * 8) + ESC ; 


OWN STORAGE: 
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BYTE) 
INITIAL (BYTE (44) 
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SCR_PATTERN: 


LON 


$C 
+ ESC, 
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alternate graphics set 


' carriage return 
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position cursor command 


: erase entire screen 


erase to end of Line 


return cursor to top 
Line feed 


normal «raphics set 


C!30w,!30W) !16AC!AC! 
'#ea') ,BYTECESC) ,BYTE(' 


Table of bit vectors which “illustrate’’ the pattern of data Line 
within the data portion of the d\ splay screen. There is 
vector for each possible number of data 
bit vector contains 24 bits representing 
H screen. A ‘"l"' bi 
*" bit means this is a space. The bits read from right to left; 
so, for example, the bit representing Line 1 is the right-most. 


items (24). Eac 
the Lines in the data 
means this is a data lL 
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EXTERNAL REFERENCES: 


EWEN —OOOon~ 


EXTERNAL 
MRBPTR ' address of MRB 
NAME_COL: BYTE P ' column number for name strin ng 
' character to repeat to form or graphs 


FAOSTK: VECTORE. LONG] , ! fao parameter space 
MFSUMSTR , ! fao string segment for control string 
NAMESTR , : fao string for output of long nanes 
NORMAL MONITOR normal return status 
PERF TABLE: VECTORE BYTE] , | List 9 performance item descriptors 
SYS YfE , ! item st ay for SYSTEM /ALL 
SCHS$GL “MAXPIX: * ADDRESSING -MODE(LONG_RELATIVE) , ! max process index 


SCHSGL nPCBVEC: ADDRESSING_MODE(LONG_RELATIVE) , ! address of PCB pointer list 
VT55K TACK : '“incr from bar to bar 


' 
! 

BARCRAR: BY ! ¢ ¢ 

DISPLAY ING: BYfE, i tow bit set => display is active 
1 


EXTERNAL LITERAL 
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4 
4 
4 
4 
4 
t 
4 CTR_SIZE ' size of FAO control string 
P FIRST BATA _LINE, i tine number of first data Line on screen 
4 AST_BATA_CINE, ' Line number of Last data Line on screen 
5 VTDATALINES ' number of data Lines on the screen 
3 5 E_COL_TAB, ! starting column of names -- tabular Stepley 
; 5 NAME_COL_BAR, ! starting column of names -- bar graph 
5 NAME COL_MFSUM, ' starting column of names -- multi-file summary 
: 5 MAX_RAME-SIZE ' max size of name (iabel) string 
5 WIDE NAME SIZE, ' size of name (Label) string: for a wide display (DISK) 
; 5 ECOUNT SYS ALL, ‘ no. of elements for SYSTEM 
5 CANS ! max characters on Be ee 
4 58 VTSSCWIDTH, i max characters on bottom axis 
; 59 VTHEIGHT, ! height of screen 
st VTWIDTH ; ! width of screen 
3 $¢ EXTERNAL ROUTINE 
6 PUT_TO_SCREEN , ! etn to xlate & annex a string to SYSSOUTPUT buffer 
31 64 LIBSGET_VM . ! etn to acquire virtual memory 
$ 23 SCRSSET_CURSOR ; ! etn to annex a cursor positioning esc seq to SYSSOUTPUT 


vepPaae 16-Sep-1984 95:18:32 ooh Bliss-32 va On 088 Page 8 & 
14-Sep-1984 12:45:05 MONTOR.SRCIJTEMPLATE .B3e; 1 (4) VO 
: 5 1288 1 SL SGA ROUTINE TEMPLATE( DCDB ) = : 
: 146 ; 
: 339 en § i” 
; $40 147@ gj FUNCTIONAL DESCRIPTION: 
: 1} 14674 i This routine formats and displays the name strings for tabular ; 
3. U4 1475 ‘ and bar graph ei splays of current, average, min and max values. ‘ 
$ 4 1er8 ! It also Builds the FAO control string for the actual data on the : 
: ri 162 } first call. per class. : 
; of 144 i INPUTS: ; 
; r4 i481 DCDB == address of class descriptor block for class being displayed. : 
° o . oo 
g 2) ion? } IMPLICIT INPUTS: : 
i it | PERFTABLE = address of table of contiguous IDB's. ; 
: 356 1488 2 | OUTPUTS: 
3; 357 1489 ' 
eee ti 
; if 1498 { IMPLICIT OUTPUTS: 
: 1494 i Name string for each item in the display for this class sent 
: 1432 directly to screen package (via call to PUT_TO_SCREEN). 
; 1497 ! On first call to this routine for this class, a buffer is 
; 1498 ! obtained for the FAO control string to output the data values. s | 
3 1499 ' It is filled with the necessary FAQ control information and 
; 1500 : its address and length are stored in the CDBSA_FAOCTR and 
: 138) } CDBSL_FAOCTR fields, respectively. . 
; 1308 i ROUTINE VALUE: ; 
3 1383 NORMAL, or possible failing status from LIBSGET_VM. : 
: 1507 2 | SIDE EFFECTS: : 
3 7 1308 ! 3 
; 37 1509 ! none 3 
: 37 1319 len 3 
: $80 1312 5 LOCAL ; 
: 381 134 ' data item index : 
: 5g 1514 ITEMS ' count of data items 3 
; 3 1515 ITMSTR ! pointer to first item token : 
: 384 1316 POINTER, i pointer into fao control string buffer : 
; 385 151 STATUS, ' return status : 
3 ry] 1518 XPOS, ' column address 3 
3 tH 1519 YPOS ' row address 3 
: 13 1 ne ROW_OFFSET; ! constant added to row number for m.f. summary : 
: 390 15 é DCDB: REF BLOCK(,BYTE) , ! address CDB structure : 
; 391 15 MRBPTR: REF BLOCK(,BYTE) , ' address MRB structure 3 
| 


| vbeebO0" HESSOcHBRE BELEHE — YASTONDLAESGERY4H0-283, va 


; 392 1524 2 ITMSTR: REF VECTORC,BYTE) ; ! item byte string 


r 


TEMPLATE 16-50 Sep-1984 7 AX-11 Bliss-32 V4.0-74 Page 10 
vou-b00 ~300 138i 95: 8: 35 MONTOR. SRCJTEMPLATE.B32; : (5) 
> 394 1525 IF .MRBPTRCMRBSV_MFSUM) ! if this is a multi-file summary 

; 395 1 § THEN OFFSET = ; ' then display the data rows lower 

3 ; : ‘ ELSE ROWLOFFSET = 0 ; ' else do not offset 

; 398 1529 IF .DCDBLLDBSV_HOMOG) ! if this is a homogeneous cless, 

; 399 1530 THEN ITEMS = VTDATALINES ' e{ways use the whole screen 

3 ret : 1 ELSE ITEMS = .DCDBCCDBSL_ECOUNT) ; ! lse get just no. of elts to display 
; 40 15 : IF ‘Pcpactpesy. SYSCLSJ ! if this is the SYSTEM class, 

; ret 13 : N ITEMS”= ECOUNT_SYS_ALL ; ! get a special ECOUNT 

: 405 1 SCR. TALLINE = 0; ' zero out display bit strin 

; 406 12 $ ; > set: ’ 

3; 407 1538 ! 

; 408 1539 ! Set a: bit string controlling ees 

; 409 1540 : ine CDB display control gtrine is only a word in Length, rather than 24 bits. 

: 410 1541 ! is to save space. since only 15 of the 24 bits in the default bit 

> 411 1306 : te B are actually used. 

3 A 154 ! 

; «641 1544 

> 414 1545 IF “pcpetceere pisPcTLD EQL 0 { display control is 0 

> 415 1546 SCR_BATA_LINE = .(SCR_PATTERNC.ITEMS- “1310, 4 : use default spacing 

: “19 uF >t eLse SCR- ~DATA “LINE<?7, 15> = . (DCDBLCOBSW_ DISPCTLI)<0,15> ; ! else use spacing specified in CDB 
3 ret 4 1383 : Output name string for each item in this heterogeneous class 

: 420 1551 

3 rh 1336 IF i a | MF SUM) OR sbcpet cosy WIDE) ! if Be. is a multi- eile summary or a wide screen 
3 ts§ 155 THEN COL i art the names her 

3; 4 1554 ELSE i “BCDB CDBSE ST EOL ALL_STAT i if sthis is a tabular "dteptey. 

> 424 1555 NAME_COL = NAME_COC_TAB i start the names here 

3 $$? 1326 ; eLee NAME_COL = NAME_COL_BAR ; i else start there for bar graph 

3: 427 1558 IF NOT .DCDBCCDB$V_HOMOG) ! if this is a heterogeneous class, 

> 428 1559 THEN 

: 429 1560 BEGIN 

: 430 1561 

3; 431 1366 120; ! initialize data item index 

$36 1307 ITMSTR = .DCDBCCDBSA_ITMSTR) ; ! get address of item byte string 

> 434 1565 IF .DCDBCCDB$V_SYSCLS] AND -DCDOBCCDBSB_ ST] EQL ALL_STAT ! if this is the SYSTER, tabular display, 
; $3? 1366 THEN ITMSTR = = ITMSTR_SYS_ALL ; i get a special ITMSTR 

3; 437 1568 INCR YPOS FROM FIRST_DATA_LINE TO LAST_DATA LINE ! Loop once for each Line in 

: 438 1569 D ! ... data portion of screen 

: 439 1570 4 BEGIN 

3; 440 1571 4 

3 441 1376 4 ! 

: rr 1573 4 i Find the IDB for this item. Output the Long name 

3; «44 1574 4 ! string, preceded by the correct curser positioning 

> 444 1575 4 ' sequence to space them out evenly. 

3: 445 1326 4 } 

3; 44 1877 4 

: 44 1378 4 LOCAL 

3; 448 1579 4 DIDB: REF BLOCKC,BYTE) , 

3: 449 1380 4 ° 

; 450 1581 4 NEXT ; 
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DUPVPVSVSVSVSIVSISISISISISIIIT 


O0O000 000000000000 000000 


kd dd 
BNEW = OOONOUE wr 


RIA SAGAN IAIUIVIVITE 


IF ,SCR_DATA_LINEL. YPOS=11 


HEN ~ 
BEGIN 
NEXT = .ITMSTRE 
DIDB = PERFTABL 
NAME = .DIDBCID 
POSITION( .YPOS 
OUTPUT ( NAME »; 
IF .D1DBLIDB$V_PENT) EQL 1 
THEN I =, + 2 
ELSE 1 = .1 + 1; 
END; 

END; 


END; 


ae 2 
ef sheet * IDBSK_ILENGTH J ; 
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MONTOR.SRCJTEMPLATE .B32;1 
if this is a data Line, 


get next token 


' 

a addr of IDB 

+ TROW_OFFSET , .NAME_COL ) ; 
' 


address of name string 
position to this item 


' output name string 

! if this is a pent item 
' move past item used for calc 
! point 


ndex to next data item 


D5 
16-Sep-1984 03:18:37 WAX—11 BLigg-32_v4.0-7 Page 1 
1e=$ep-1984 13:45:05 EMONTOR SRESTEMPLATE 099; 1 ae 


Veet 


: 467 1597 : 

; 468 1338 ! If this is the first time thru for this hag as 

; 469 1599 ' obtain and build the FAO control stri mq, te nsert 

; $29 1259 the data values for the items at data display time. 

: 47 160 

; 47 1808 IF .DCDBCCDOBSA_FAOCTR] EQL 0 OR NOT .DISPLAYING ! if no fao control string 

: 474 1604 THEN ! ... OR in summary process "a 

: 475 1605 BEGIN 

; 476 1608 A 

: 477 160 peper ice ; ' holds faoctr size 

; 478 1608 IF .DCDB CDBSA_FAOCTR EQL 0 ! if no control string buffer yet, 

: 479 1609 THEN 

; 480 1610 4 BEGIN 

; 481 1611 4 FAOCSIZE = FAOCTR_SIZE ; ! initialize its size 

: 48 lol¢ 4 STATUS = LIBSGET QM(FAOCSIZE DCDBICDBSA_FAOCTRI); ! get the memory for it 

: 48 1613 4 IF NOT .STATUS TREN RETURN .STATL. ; ! return if error 

Be Be ale 

s rt] 1916 ; POINTER = .DCDBCCDBSA_FAOCTR) ; ! start pointer at beg of FAO buffer 

; 488 1618 3 IF .DCDBCCDB$B_ST] EQL ALL_STAT OR .MRBPTRCMRBSV_MF SUM) ! if this is a tabular display, 

; 489 1619 3 THEN ! set up control string accordingly 

; 490 1620 4 BEGIN 

3: 491 1621 4 LOCAL 

; 49 16 ¢ & COL_OFFSET, ! holds offset from usual column where data 
; 49 16 4 R_TABSTR ; ' holds addr of FAO control string segment 
: 494 1624 4 IF -DCDBLCOBSy WIDEJ ! if a wide-screen display, 

3: 495 153 4 N COL_OFFSET = WIDE_NAME_SIZE ! then set a wide offset 

; 496 1626 4 Rak: COL -OFFSET = MAX RARE -S12E : ! otherwise take the usual width 

: 497 1687 4 . NAME ~ COL _9 OFFSE ; i starting colum 

3 re sb 3 : DCDBLCDBSB. FROPRELEN ! Length of FAO oretis 

: 500 1880 4 IF gt ae te MF SUM] ! if this is a multi-file summary, 

; 501 1631 4 THEN CUR_TABSTR = MFSUMST ! get the appropriate dae control str segm 
3 206 1O3¢ 4 ELSE IF -Bcpetcoasy PERCENT) ! if this is a percent dis splay 

; 1633 4 CUR_TABSTR = TABSTR_PC ! get the appropriate FA control str segm 
: ape 1O38 2 tse CUR_TABSTR = TABSTR> : else get the other one 

; 506 1636 4 INCR YPOS FROM FIRST_DATA_LINE TO LAST_DATA_LINE ! loop once for each Line in 

s Sor 1637 4 DO ! ... data portion of screen 

; 508 1638 5 BEGIN 

: 509 1639 5 IF .SCR_DATA_LINEC.YPOS-1) ! if this is a data Line, 

: 219 1640 5 THEN 

fe ab 1641 6 BEGIN 

; zig 1666 6 (. POINTER) <0,16> = CURSOR ; insert position command 

We i 1643 6 POINTER = .POINTER + ¢ )<0,8> = .YPOS ‘ -ROW LOFFSET: ! insert row number 

; 514 1644 6 POINTER = .POINTER + 1 )<0,8> = .XPOS ; insert column number 

s 315 1645 6 POINTER = .POINTER + 1 ; + upsate te to skip last inserted byte 

; 516 1966 6 H$MOVE( .(.CUR_TABSTR)<0,8> , (.CUR TABSTR) +1 *, P 3: _move conversion control stri 
; 517 1647 6 POINTER = .POINTER + .(.CUR ThBsiR) < 0,8; ' update pointe nte 

; 518 1648 6 IF .YPOS EQL FIRST DATA_LINE ! if fir im “they th oop. 

3 519 1649 6 THEN DCDBCCOB$SB_FAOSEGLEN] = .POINTER - LDCDBECDBSA, FAOCTR -0CDB cbse _FAOPRELEN) ; 
3 0 1650 g ' compute Length “of a single Segment 

: 1883 4 END — 

3 > 5 1888 4 


TEnPhATE 1$-$e0-1986 QBe]EAZ  YMGN Leg 32 ve eo-742 rage 3 
: 5246 1654 4 END 


ceececercraunw 
ae oe me Oe Os Ow Oe a 


ee. 
vo4-000" 1e$ep=1984 18:45:05 ERONTORS SRESTEMPLATE 050; 1 jee 
' 


3 1655 3 ELSE bar graph display -- set up ctrl string for it 
; $ i : BEGIN . , . 
3 5 16 8 & ! Now build the fao control string to output a bar graph 

; é 0 1659 4 ! at run time, The control string contains for each Line: 

3 1 1660 4 ; position row and column to left of grid 

3; > ¢ 1661 4 ! write count 

3 é 1996 4 : re-position row and column inside grid 

3 1665 4 ! output ‘n' bar characters 

3 Dae 1664 4 ‘ delete to end of Line 

. 3 : 1665 4 ! 

3 2 1966 4 LOCAL 

3 8 1667 4 XPOSBAR ! column number of beg of bar 

3 +44 1998 ? XPOSCOUNT ; ! column number of count field 

; 541 1670 4 XPOSCOUNT = 30 ; ! starting column of count field 

3 206 1671 4 XPOSBAR = 39 ; ! starting column of bar field 

; 34 lore 4 (.POINTER) <0,16> = ALTSET ; ! start filling ctrl string (aiternate graphics) 
3; 5446 16735 4 POINTER = .POINTER + $ ' skip to next position 

; 24? ior é DCDBCCDB$B_FAOPRELEN) = 2 ; ! ... and store length of FAO prefix 

; 547 1676 4 INCR YPOS FROM FIRST_DATA_LINE TO LAST_DATA_LINE ! Loop once for each Line in 

; 548 1677 4 ! ... data portion of screen 

; 549 1678 5 BEGIN 

3; 330 1679 5 IF_ .SCR_DATA_LINEC.YPOS-1] ! if this is a data Line, 

3 351 1680 5 THEN 

3 226 1681 6 BEGIN 

; loge 6 (.POINTER)<0,16> = CURSOR ; ! insert position command 

; 554 1683 6 (POINTER = .POINTER + 2 )<0,8> = .YPOS ; i next Y position 

s 339 1684 6 (POINTER = .POINTER + 1 )<0,8> = .XPOSCOUNT ; ! X position for count 

; 556 1685 6 POINTER = .POINTER + 1 ; ! next buffer position 

g Sor 1686 6 CHSMOVE( 9 , COUNTSTR , .POINTER ) ; ! move count directive 

; 558 1687 6 (POINTER = .POINTER+9)<0,16> = CURSOR ; i insert control to position to 

; 559 1688 6 (POINTER = .POINTER+2)<0,8> = .YPOS ; ' stay in same row 

; 560 1689 6 (POINTER = .POINTER+1)<0,8> = .XPOSBAR ; ' column for bar field 

: 561 1690 6 POINTER =_.POINTER + 1 ; ' next buffer position 

3 206 1691 6 CHSMOVE( 3 , REPTSTR ,_.POINTER ) ; ' move repeat control 

; 56 1996 6 (POINTER = .POINTER + 3)<0,8> = .BARCHAR ; ! insert literal character to use for graph 
> 564 1693 6 (POINTER = .POINTER+1)<0,16> = ERASEEOL ; i delete rest of Line 

3; 565 1694 6 POINTER = .POINTER + 2 ; ' next buffer position 

; 566 1695 6 F .YPOS EQL FIRST _DATA_LINE ! if first time thru the Loop. 

3; 567 1696 6 THEN DCDBCCDB$B_FAOSEGLEN) = .POINTER - .DCDBCCDBSA_FAOCTR) = .DCDBCCDB$B_FAOPRELEN] ; 
; 568 1697 ? ! compute length of a single Segment 
3 9 1698 END; 

$ 0 1699 4 END; 

3; 571 1700 4 

3 £4 1701 4 (.POINTER)<0,16> = REGSET ; ! restore normal char set 

: 57 1708 4 POINTER = .POINTER + 2 ; ! update position 

3 574 17 END; 

3; 375 17 

3 «6STe 1705 ‘ 

3; «577 1708 ! Insert length of created string into CDB 

; er 1708 

3 280 HA PCOOL COREL FANE TA? = .POINTER - .DCDBCCDBSA_FAOCTR) ; 

: 582 1711 2 RETURN .NORMAL ; ! return with no errors 
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; 583 1712 +1 END; 
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TEMPLAT 
\V04=000\ 


SPLITS,NOWRT ,NOEXE ,2 


44 
N  f7UL.!2Z2L $7UL.!2Z2L !7UL.!22L !7UL.!22\ 


: \ 
N  f7UL.!12L 7UL.!12L 


\.f1ZL\ 
\!I7<!MUL!>\ 
<13> 
<27>\H\<27>\N\ 
<27>\N\ 
<27>\1\ 
<27>\2\ 
<27>\H\ 
{10> 
Rt 
C27 >\ 1A71/\<27>\2\ 
<27>\K\ 
\!UL\ 

\BAD\ 
\COLPG\ 
\MWAIT\ 
\CEF\ 

\PFW\ 

\LEF\ 
\LEFO\ 
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TEMPLATE 16-Sep-1984 02:18:37 AX-11 Bliss-32 V4.0-74 P 
yO4~000 aaa ran At Sa or a age 16 
42 49 48 at .ASCII \HIB\ ; 
04 Bl P.AAY: .BYTE 4 : 
4F 42 49 48 f pra ASCII \HIB0\ : 
50 53 55 g 87 gat ASCII \SUSP\ : 
4F 50 53 55 BC : “ASCII \SUSPO\ : 
OOC1 P.ABB: .BYTE 3 : 
47 50 46 000¢ “ASCII = \FPG\ ; 
03 O00CS5 P.ABC: :BYTE 3 : 
4D 4F 43 00 C6 “ASCII = \COM\ ; 
04 9o¢ P.ABD: .BYTE 4 : 
4F 4D (GF CA “ASCII \COMO\ : 
0 OOcE P.ABE: .BYTE 3 : 
52 55 4 OCF ASCII \CUR\ : vs 
00000000" 00000000' 09000000" 00000000" 00000000' 00000000° 00004 P.AAP: ‘ADDRESS P.AAQ, P.AAR, P.AAS, P.AAT, P.AAU : 
00000000" 00000000" 00000000' 00000000° 69009000: 90000000" OE P.AAV, P.AAW, P.AAX. P.AAY, P.AAZ,» P.ABA, - : 
00000000" 00000000° 0000000" 0104 Ny gh p- ABB, P.ABC. P.ABD. P.ABE : a) 
46 44 55 57 53 0111 ° ~~ SASCII = \RWUDF\ ; 
p 00116 P.ABH: .BYTE : moO 
54 53 41 57 é 0011 “ASCII \RWAST\ : 
g 9011¢ P.ABI: .BY ; 
58 42 4D 57 é 0110 sASCII = \RWMBX\ : MO 
g 001 ¢ P.ABJ: .BYTE : 
47 50 4E 57 : 001 “ASCII \RWNPG\ : 
9 00128 P.ABK: .BYTE : MO 
46 47 50 57 é 00129 “ASCII \RWPGF\ : 
: 001 E P.ABL: -BYTE : 
47 41 50 57 52 O012F eASCII \RWPAG\ : MO 
05 01 P.ABM: -BYTE F 
4B 52 42 57 52 00135 [ASCII \RWBRK\ : 
03 0013A P.ABN: .BYTE : MO 
47 4D 49 57 2 00138 gee: Sci \RWIMG\ ; 
4F 55 51 «57 53 0014)  TASCIIT. = \RWQUO\ : mo 
: 0146 P.ABP: BYTE ; 
4B 43 4C 57 0014 “ASCII \RWLCK\ : 
g 0014¢ P.ABQ: BYTE : MO 
50 57 53 57 a3 eae sci} \RWSWP\ ; 
45 50 4D 57 i Paee : SCI \RWMPE \ : $M 
42 50 4D 57 g i aie ’ sc} \RWMPB\ : A 
53 43 53 57 a 13 gat “ASCII \RWSCS\ 3 
55 4C 43 ois © rk, ASCII \RWCLU\ : $P 
00000000' 00000000' 00000000' 00° 00000' 00' 0016C P.ABF: ADDRESS P.ABG, P.ABH, P.ABI, P.ABJ, P.ABK, - : 
00000000' 00000000' 00000000° 09000000 + 9000008: pi: 184 P.ABL, P.ABM, P.ABN, P.ABO, P.ABP, P.ABQ, - : 
000000" 00000000" 00000 3 1 pets, ge P.ABR, P.ABS. P.ABT. P.ABU 4 
58 45 54 55 4D 1A TASC CAMUTEX\ : 
1 
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5 
TEMPLATE 1b-se -1984 :18:37 AX-11 Oi iss -32 vV4.0-7 Pa 1 
VoeebO 12-80-1382 95:18:37 MONTOR. SRCITEMPLATE. bg 31 oe 18 
TOPSTR20= P.AAN 
VHSTSTR20= P. AAO 
STATELIST== P. AAP 
RWAITLIST== P-A 
MWAITLIST== ae BV 
.EXTRN 
-EXTRN BARCHAR, NOTEPCAYING 
“EXTRN FAOSTK, MFSUMSTR 
“EXTRN NAMEST tk, NORMAL 
“EXTRN PERF TABLE. | ITHSTR S_ALL 
*EXTRN SCHSGL ScRscr PCBVEC 
SEXTRN VTS SIRCR. PrAOCTR, SIZE 
“EXTRN FIRST DATA_LI 
~EXTRN LAST BATA cine. VTDATALINES 
eEXTRN NAME_COL_TAB, E 
*EXTRN NAME” COL: ME SUM, MAR_N E 
«EXTRN WIDE-NAM E Shee. EC ECOONT ney WALL 
EXTRN MAXBARS 
SEXTRN VTHEIG cit rat} 
- TEXTRN PUT SCREEN LIBSGET_VM 
SEXTRN SERSSET SOR 
.PSECT $CODE$,NOWRT,2 
D7 
OFFC 00000 ENTRY TEMPLATE, Save R2,R3,R4,R5,R6,R7,R8,R9,R10.=; 
SE 08 c2 00002 SUBL2 #8, SP : 
51 000000006 00 DO 00005 VL RBPTR, R1 3 
05 64 OAT 03 E1 0000C BBC #3, 68(R1), 1$ : 
5B 2 D0 00011 MOVL #2, ROW_OFFSET : 
02 11 00014 BRB : 
5B D4 00016 18: CLRL ROW_OFFSET ; 
5B 04 AC DO 00018 2$: MOVL  DCDB, RB ; 
09 4B AB § €1 0001C BBC #5, ?5(R8), 3$ : 
50 000000006 f bo 00 i MOVL #VTDATALINES, ITEMS ; 
50 18 AS 00 0002A 33: MOVL g4(RB), TEMS : 
87 000000066 SF 50 609 ; “a eee oF st _3¥S_ALL, ITEMS : 
00000000" EF 18 00 00 FO 00039 S$: INSV nF #247 SCR_DATA_LINE ; 
36 AB OB 0048 TSTW : 
10 1 9004 BNEQ ; 
00000000' €eF 18 00 00000000'EF40 FO 00047 INSV i. [arrenmacien #0, #24, : 
OA 11 90055 BRB ; 
00000000" EF OF 07 36=OA £0 00 68: INSV  54(R8), #7, #15, SCR_DATA_LINE : 
05 44 OAT 03 €£ 906) $: BBS i. 68 8iR1); ; 
OA 4C AB 0 Fi 066 BBC r BcRB) ; 
000000006 00 006 BF 90 0068 8$: nove #NAME_COL ar SUM, NAME _COL ; 
42 AB OO 75 9S: TSTB  66(R8) : 
A 1 7 BNEQ 3 
000000006 00 006 f ? 7A nove #NAME_COL_TAB, NAME_COL ; 
000000006 09 006 8F 20 10$:  MOVB BANE cot BAR, NAME_COL : 
6C 4B OA 3 £0 0 C1 1$: BBS #5, ?S(RBY, 16$ ; 


Page 
-32 vi 0-783 
Kk 5 18:37 AX-11 Blis RE | 41 
Ve-$ep-1986 19:45:05 Enontonesneaté : 
TMSTR ; 
ATE MOVL 8(R8), : 
voe-600 54 i 4 i 7 BL aC ae ie ; 
C A 4 NEQ ITMSTR ; 
‘ i ROV HL FFIRSY-OATA_LINE.. YPOS : 
34 000000006 00 cS Ar 128: suBLS #1, ni 
vtec sean nt 3 O81 138:  ROVAB RO. Sch DATALLINE, 15S : 
50 FE 8S BF gba ROVZBL UISchtmstad, “NeXt 
apisagtpeth Orr te 2089 mult 2 PERFTABLECRO], DIDB 
0000009060049 oe Ree oS he Pe : 
2 ena po 06 PUSHAB © CROUOFF SET) EYPOSI : 
E eae ate oF 0007 CALLS #2, POSITION : 
F SHL : 
00000000y EF Be 0b Godel CALLS FL SOUTRUT, 7 
o00c BF FS O0OFS 158 MOVAB, 4(RB)> R : 
4 i emote AB SE QUOD 1e8 CLRL RO : 
4 5A 20 bg 00101 TSIL (R10) 
6A D BNEQ : 
4 12 00105 INCL RO : 
D6 00107 18$ : 
x i 4S 44 175: BLBC BISPLAYING, 18$ 
03 000000006, 00 §s 00118 aux oe i Ite see peeraien ; 
a BP BG goig '*RoveBriot FR. suze, : 
04 AE 000000006 BF D0 0118 atthe FAOCSIZE 
"9 Fe 00135 BLES” STATUS. 198" ; 
000000006 of 5 EB i f MOVL (R10), POINTER é 
6a 0 001 gs YB Ge eRaS : 
56 42. AB 01 BEGL 208 TR, RO : 
eo 01 MOVL MRBP tro) 208 ; 
0006 Dd 001 BBS #3, 68(RO), : 
“F Spaee ; BY oles yO acca), one Stoel 
03 4 - 007% E1 oi? 208: ROVE #IDE_NAME _SIZE. COL. ie : 
09 *¢ 85 00000006 F 00 OO ; 1$:  ROVL #RAX_NAME_SIZE, COL_OFF ; 
0 € 00 9a O015¢ 528: ROVZBL NARE FFSET. RI, XPOS 
SERGE a Eth, e | 
6E bo 68 BO OOlGA BBC) #5. GBERO), 238 fe : 
09 ** $9 000000006 176 BRB ag), 268 
45 AS j a 258: FOVAB Siam). CUR_TABSTR 
83 ooo000d0' EF Se 001 


5 
TEMPLATE 18-se -1984 18:37 AX-11 Bliss-32 V4.0-74 Page 20 
VOe-000 1 =300 71382 95:18:32 MONTOR. SRCITEMPLATE .B3 31 . 3 
9 oo000000' cr oe Bole 24s:  Bevaa fASSTR. CUR. TABSTR + 1634 
57 000000006 éF i} cS te SUBL a, #FIRST_BATA_LINE, YPOS + 1636 
50 FF OA? 9 19D 26$: MOVAB -1(R7), RO + 1639 
2D 00000000° éF 0 €1 OO1A1 BBC R09 SCR_DATA LINE, 27$ F 
$ 5918 &F 0 109 MOVW  #20811,~(POIRTER)+ + 164 
BG B 1A ADDB3 ROW_OFFSET, YPOS, (POINTER)+ + 164 
of 0 0018 MOVB XPOS, (POINTER) + 3: 1644 
{ A 001B MOVZBL CCUR TABSTR), RO + 1646 
66 01 A 8 001 MOVC3 RO, T(CUR_TABSTR), (POINTER) : 
20 A 0018 MOVZBL (CUR TABSTR), RO + 1647 
é CO 001C¢ ADDL2 RO, POINTER : 
000000006 8F D1 001C CMPL POs, #F IRST_DATA_LINE ; 1648 
OA 12 OO1CA BNEG 27 : 
50 56 6A f icc SUBL 3 (R10), POINTER, RO + 1649 
40 AB 30 41 AB 010 SUBB3 © 65(RBS, RO, 64(RB) : 
BF 57 000000006 af F3 00106 27$ AOBLEQ #LAST_DATALINE, YPOS, 26$ : 16 
—E 11 0010 BRB 37$ : 161 
57 3 DO OO1EO 28 MOVL #30, XPOSCOUNT + 1670 
5B é DO OIE MOVL #39. XPOSBAR + 1671 
86 4618 8F 80 166 MOV) #17947, <POINTER)+ + 167 
41 AB 02 9 001EB MOVB #2, 65¢ + 1674 
59 000000006 8F gi C3 OO1EF SUBL3 #1, MFIRST_DATA_LINE, YPOS + 1676 
8 11 O01F7 BRB 30$ : 
50 FF AQ 9 O1F9 29$:  MOVAB =-1(R9), RO + 1679 
4C 00000000° EF 50 €1 OO1FD BBC R09 SCR_DATA_LINE, 30$ : 
6 5918 BF 80 0205 MOVW #22811, ~ (POINTER) + : 168 
86 59 90 0020A MOVB = YPOS, (POINTER) + : 168 
6 57 90 00200 M XPOSCOUNT, (POINTER) + + 1684 
66 '00000000' EF 9 28 00210 MOVC3 #9, COUNTSTR, (POINTER) + 1686 
é 9 C0 0 18 ADDL2 #9. POINTER + 1687 
aS 5918 «BF 80 1 VW #28811, (POINTER)+ ; 
6 9 90 00 MOVB YPOS, (POINTER)+ + 1688 
6 58 20 0 MOVB XPOSBAR, (POINTER)+ + 1689 
86 18 0 00000000' EF F 0 é INSV REPTSTR. #0, #24, (POINTER)+ : 1691 
56 2 0 F ADDL2 #2, POINTER + 1692 
86 000000006 00 90 00 2 MOVE BARCHAR, (POINTER)+ F 
6 4818 8F BO MOVW #19227, (POINTER) + + 1693 
000000006 8F 9 D4 i CHPL P08, #F IRST_DATA_LINE + 1695 
50 f 6A ¢ 4 SUBL 3 (R10) POINTER RO > 1696 
40 AB 0 41 AB 48 SUBB3 © 65(RBS, RO, 64(R8) F 
A0 59 000009006 BF F 1 30$:  AOBLEQ HA 7_BATA LINE, YPOS, 29% : 1676 BUI 
6 4718 =8F B 9 MOVW #18203, (POINTER)+ + 1701 Bul 
68 6 6A C3 00 31: SUBL3. (R10), POINTER, (R8) : 1709 BUI 
50 000000006 00 BO 0 62 32$:  MOVL NORMAL, RO : 1711 BUI 
4 0026 RET : 1712 Bu 
; Routine Size: 618 bytes, Routine Base: S$CODE$ + 0000 a 


CAl 
CAl 


| nS 
T ATE 16-Sep-1984 02:18:37 AX-11 Bliss-32 V4.0-74 Pa 1 
VOae000 19-808- 1382 95:18:32 MINTOR SAE TTERPL ATE s035;1 - §) 
; 5 ar 1 gL ona ROUTINE OUTPUT( STRING ) = 
| THe 8 ee 
: 589 1F19 i 
: 4! ay | FUNCTIONAL DESCRIPTION: 
; 36 i? Y ; Routine to output counted string with no carriage control. 
: 594 17 ; i INPUTS: 
; 595 17 ! 
: 38 \y : } STRING = address of counted ascii string. 
: 598 17 6 i OUTPUTS: 
3 99 17 $ 
: Sot im iia 
: 60 1730 2_ 
; 60 1731 PUT_TO_SCREEN (.(.STRING)<0,8>, .STRING+1) 
: 604 1732 1 END; 
0000 00008 -ENTRY OUTPUT, Save nothing 3; 1713 
7E 04 Ac 01 C1 0000 ADDL3 #1, STRING, (SP) : 1731 
7E 04 BC 9A 00007 MOVZBL @STRING, -(SP) : 
00000000G 00 02 FB it CALLS #2, PUT_TO_SCREEN : 
04 0001 RET : 1732 


; Routine Size: 19 bytes, Routine Base: S$CODES + 026A 


; 605 733 1 

; 606 1734 1 

: 607 1735 1 ROUTINE POSITION( YPOS , XPOS ) = 

; 608 1736 BEGIN 

; 609 1737 

; 610 1738 '¢ 

s 61) 1739 ! 

: oi¢ 170 : FUNCTIONAL DESCRIPTION: 

3 ore 17tg Routine to call SCRPKG to nosition screen for characters. 
3 olg 1744 ! INPUTS 

; 61 1745 ! 

; 618 ire : YPOS = y position ( row number , one origin) 

3 o39 ine XPOS - x position ( column number , one origin) 

3; 621 1748 ' OUTPUTS: 

; 6 § 1729 : 

3; 6 1751 ! none 

Big gi . 

3; 6 $ 1754 SCRSSET_CURSOR (.YPOS, .XPOS) ! set cursor to the requested position 
3; 62 1755 END; 


Nn 5 
1ergeen 1 8Rs 98:18i3s — EABNT OR SHES TemPY Ae 03551 Page $5 


0000 00000 POSITION: 


? 06 Ac 7D 00002 move, | ypOS, keene ‘18 
000000006 3 05 FB 000 CALLS #2,  ScRSSET. CURSOR : 
04 00000 RET : 1755 


; Routine Size: 14 bytes, Routine Base: S$CODE$ + 027D 


: 628 1736 1 

: 8S 1588 1 END 'End of modul 

3 ‘End of module 

: 631 1759 0 ELUDOM ate 

; PSECT SUMMARY 

; Name Bytes Attributes es 

: SOWNS 147 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) E 

: SPLITS 436 NOVEC.NOWRT, RD ,NOEXE,NOSHR, LCL, REL, So OE At JONI S? Ext 

3; SCODES 651 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) Ext 

po O88 « 0 NOVEC, *NOWRT, * NORD ;NOEXE -NOSHR, LCL, ABS, CON,NOPIC,ALIGN(0O) fe 
Ext 
Ext 
EXt 

: Library Statistics ; i+ 

pte Ne i See Symbols -------- Pages Processing Ext 

: File Total Loaded Percent Mapped Time fe 

; -$255$DUA28: CSYSLIBILIB.L32;1 18619 5 0 1000 00:01.9 7 
EXxI 
EX! 
Ex: 
Ex’ 
Ex’ 
F Al 

3 COMMAND QUALIFIERS “ 

3 BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$: TEMPLATE/OBJ=OBJ$: TEMPLATE MSRC$: TEMPLATE/UPDATE=(ENHS: TEMPLATE) 4 

3; Size: 651 oge + 583 data bytes GE’ 

; Run Time 735.4 

; Elapsed. Fines 1397-0 

3; Lines/CPU Min: 3157 


Waeht 


6 | 
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1 


; Lexemes/CPU-Min: 40116 


Memor 


351 pages 


: { Used: 
; Compilation Complete 


oooo0ce0o ooo o222 


i 
1 
I 
I 
I 
I 
I 
I 
I 
I 
I 
1 
I 
I 
J 
J 
J 
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IT 
FI 


